Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("This is a test of svn for Visual Studio")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("This is a change")
    End Sub

    Private Sub TextBoxKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox4.KeyPress, TextBox3.KeyPress, TextBox2.KeyPress
        If (Char.IsDigit(e.KeyChar) Or e.KeyChar = Microsoft.VisualBasic.ChrW(8) Or e.KeyChar = Microsoft.VisualBasic.ChrW(46)) Then
            e.Handled = False
        Else
            e.Handled = True
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ''Create TableLayoutPanel
        'Dim tlp As New TableLayoutPanel

        'tlp.AutoSize = True

        ''Set the BorderStyle to Inset
        'tlp.CellBorderStyle = TableLayoutPanelCellBorderStyle.Inset

        ''Grid has two columns
        'tlp.ColumnCount = 2

        ''Grid has two rows
        'tlp.RowCount = 2

        ''If grid is full add extra cells by adding column
        'tlp.GrowStyle = TableLayoutPanelGrowStyle.AddColumns
        ''Padding (pixels)within each cell (left, top, right, bottom)
        'tlp.Padding = New Padding(1, 1, 4, 5)

        '' Add TableLayoutPanel to the Forms controls
        'Me.Controls.Add(tlp)
        'Create buttons
        TableLayoutPanel1.GrowStyle = TableLayoutPanelGrowStyle.AddRows
        TableLayoutPanel1.RowStyles.Clear
        For i As Integer = 0 To 5
            Dim button1 As New Button
            button1.Anchor = AnchorStyles.Bottom Or AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
            button1.Text = "Click Me"
            TableLayoutPanel1.Controls.Add(button1)
            Dim aa As New RowStyle
            aa.SizeType = SizeType.Percent
            aa.Height = 20
            TableLayoutPanel1.RowStyles.Add(aa)
        Next



    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged

        'TableLayoutPanel1.RowStyles(2).SizeType = SizeType.Percent
        'TableLayoutPanel1.RowStyles(2).Height = 10
    End Sub
End Class
